CP/M MACRO ASSEM 2.0 #001 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 



* 

* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL 

* REVS). HANDLES DISKETTES WITH SECTOR SIZES OF 128 BYTES 

* SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE DENSITY. 
* 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 9/1/79 
* 

* CUSTOMIZED BY JAY O'BRIEN. 

* 4/12/31 
* 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
***************************************************************** 

TITLE '*** Cbios For CP/M Ver. 2.2 ***' 

***************************************************************** 

* ^ 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.0 CBIOS. * 

* * 
***************************************************************** 



£B\6S>X f^J 



* TRK SEC 1 = FIRST SECTOR OF COLD BOOT. 

2 = COLD BOOT 256. 

3 = COLD BOOT 512. 

4 = COLD BOOT 1024. 

5 = WARM BOOT 256. 

6 = WARM BOOT 512. 

7 = WARM BOOT 1024. 

8 = COLD/WARM BOOT. 

9 = FIRMWARE. 

10 = FIRMWARE+80H. 

11 = FIRMWARE+100H 

12 = FIRMWARE+180H. 

13 = FIRMWARE+200H. 

14 = FIRMWARE+280H. 

15 = FIRMWARE+300H. 

16 = FIRMWARE+380H. 

17 = CCP. 
10 = CCP+80H. 
12 = CCP+100H. 
14 = CCP+180H. 
16 = CCP+200H. 

18 = CCP+280H. 
20 = CCP+300H. 
22 = CCP+380H. 
24 = CCP+400H. 
26 = CCP+480H. 

= REST OF CP/M. 



* 





* 





* 





* 





* 
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* 





* 





* 


1 


* 





E700H 

80H 

80H 

80H 

80H 

80H 

80H 

3200H 

E400H 

E480H 

E500H 

E580H 

E600H 

E680H 

E700H 

E780H 

2D00H 

2D80H 

2E00H 

2E80H 

2F00H 

2F80H 

3000H 

3080H 

3100H 

3180H 

3200H-4FFFH 




001E = 
0016 = 



REVNUM EQU 30 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



cp/m macro ASSEM 2.0 



#002 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3, 3.1, 4. 
* 



***************************************************************** 



E000 
E400 
E403 
E406 
E409 
E40C 
E40F 
E412 
E415 
E41S 
E41B 
E421 
E427 
E42A 
E42D 
E430 



ORIGIN 


EQU 


0E000H 






DJRAM 


EQU 


ORIGIN+400H ; 


DISK 


JOCKEY 


DJCIN 


EQU 


DJRAM+3H ; 


DISK 


JOCKEY 


DJCOUT 


EQU 


DJRAM+6H 


DISK 


JOCKEY 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


DJTRK 


EQU 


DJRAM+0CH 


•DISK 


JOCKEY 


DJSEC 


EQU 


DJRAM+0FH 


•DISK 


JOCKEY 


DJDMA 


EQU 


DJRAM+012H 


DISK 


JOCKEY 


DJREAD 


EQU 


DJRAM+1 5H 


•DISK 


JOCKEY 


DJWRITE 


EQU 


DJRAM+1 8H 


•DISK 


JOCKEY 


DJSEL 


EQU 


DJRAM+1 BH 


•DISK 


JOCKEY 


DJTSTAT 


EQU 


DJRAM+2 1H ; 


DISK 


JOCKEY 


DJSTAT 


EQU 


DJRAM+2 7H 


•DISK 


JOCKEY 


DJERR 


EQU 


DJRAM+2 AH 


DISK 


JOCKEY 


DJDEN 


EQU 


DJRAM+2 DH ; 


DISK 


JOCKEY 


DJSIDE 


EQU 


DJRAM+3 0H 


•DISK 


JOCKEY 



2D RAM ADDRESS 

2D CHARACTER INPUT ROUTINE 

2D CHARACTER OUTPUT ROUTINE 

2D TRACK ZERO SEEK 

2D TRACK SEEK ROUTINE 

2D SET SECTOR ROUTINE 

2D SET DMA ADDRESS 

2D READ ROUTINE 

2D WRITE ROUTINE 

2D SELECT DRIVE ROUTINE 

2D TERMINAL STATUS ROUTINE 

2D STATUS ROUTINE 

2D ERROR, FLASH LED 

2D SET DENSITY ROUTINE 

2D SET SIDE ROUTINE 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* EQUATES FOR MY SYSTEM. J.J. O'BRIEN 
* 



E800 = 



MSDV 



EQU 



0E800H 



; VI DEO DRIVER FOR MSDV 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 
***************************************************************** 



0038 
9000 
BD00 

C500 
D300 
0004 
0080 
0100 
00C0 
0003 
0000 
0005 



MSIZE EQU 

BIAS EQU 

CCP ' EQU 

BDOS EQU 

BIOS EQU 

CDISK EQU 

BUFF EQU 

TPA EQU 

INTIOBY EQU 

IOBYTE EQU 

WBOT EQU 

ENTRY EQU 



56 

(MSIZE-20)*1024 
2D00H+BIAS 
CCP+800H 
CCP+1600H 
4 

80H 
100H 
192 
3 

,0. 
5 



MEMORY SIZE OF TARGET CP/M < 

MEMORY OFFSET FROM 20K SYSTEM 

CONSOLE COMMAND PROCESSOR 

BDOS ADDRESS 

CBIOS ADDRESS 

ADDRESS OF LAST LOGGED DISK 

DEFAULT BUFFER ADDRESS 

TRANSIENT MEMORY 

INITIAL IOBYTE 

IOBYTE LOCATION 

WARM BOOT JUMP ADDRESS 

BDOS ENTRY JUMP ADDRESS 
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***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS . * 

* * 
***************************************************************** 



000A = 
000D = 
000A = 

0003 = 
0005 = 
0019 = 

0004 = 
0008 = 



D300 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

AETX EQU 3 

AACK EQU 6 

CLEAR EQU 19H 

MAXDISK EQU 4 

DBLSID EQU 8 



;MAX RETRIES ON DISK I/O BEFORE ERROR 

;A CARRIAGE RETURN 

;A LINE FEED 

;A ETX CHAR 

;A ACK CHAR 

; CLEAR SCREEN FOR MSDV 

.•MAXIMUM # OF DISK DRIVES 

;SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



ORG 



BIOS 



D300 


C3A0D3 




JMP 


CBOOT 


D303 


C3FCD3 


WBOOTE 


JMP ■ 


WBOOT 


D306 


C340D6 




JMP 


CONST 


D309 


C34CD6 




JMP 


CON IN 


D30C 


C361D6 


COUT 


JMP 


CONOUT 


D30F 


C381D6 




JMP 


- LIST 


D312 


C376D6 




JMP 


PUNCH 


D315 


C36CD6 




JMP 


READER 


D318 


C390D4 




JMP 


HOME 


D31B 


C3C6D4 




JMP 


SETDRV 


D31E 


C392D4 




JMP 


SETTRK 


D321 


C385D4 




JMP 


SETSEC 


D324 


C38AD4 




JMP 


SETDMA 


D327 


C369D5 




JMP 


READ 


D32A 


C362D5 




JMP 


WRITE 


D32D 


C38CD6 




JMP 


LISTST 


D330 


C397D4 




JMP 


SECTRAN 


D333 


C31BE4 


DJDRV 


JMP 


DJSEL 



; CBIOS STARTING ADDRESS 

COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 

HOOK FOR SINGLE.COM PROGRAM 




***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



D336 


0D0A0A PROMPT 


DB 


ACR, ALF, ALF 


D339 


35 


DB 


'0'+MSIZE/l0 


D33A 


36 


DB 


'0'+(MSIZE MOD 


D33B 


4B2043502F 


DB 


'K CP/M Vers. 


D348 


32 


DB 


CPMREV/l0+ , 0' 



10) 



;CP/M MEMORY SIZE 
;CP/M VERSION NUMBER 
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D349 2E 

D34A 32 

D34B 2C20436269 

D357 332E 

D359 30 

D35A 0D0A 

D35C 466F722054 

D387 402030 



DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



;CBIOS REVISION NUMBER 



{CPMREV MOD' 10)+ '0' 

' , Cbios rev ' 
REVNUM/l0+*0' 
REVNUM MOD 10+'0' 
ACR,ALF 

'For Thinker Toys Disk Jockey 2D Controller ' 

'@ 0' 



D38A 45 



IF 
DB 

Ljjjblj 

DB 
END IF 



ORIGIN/4096 > 10 
ORIGIN/4096+ ' A * -10 

ORIGIN/40964-' 0* 



; CONTROLLER ORIGIN (HEX) 



D38B 30 

D38C 3030482E 
D390 0D0A00 



IF 
DB 

ELSE 
DB 

ENDIF 

DB 

DB 



(ORIGIN/256 AND 0FH) > 10 
(ORIGIN/256 AND 0FH)+'A'-10 

(ORIGIN/256 AND 0FH)+'0' 

'00H. ' 
ACR,ALF,0 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 



D393 7E 


MESSAGE MOV 


A,M 


D394 23 


I NX 


H 


D395 A7 


ANA 


A 


D396 C8 


RZ 




D397 E5 


PUSH 


H 


D398 4F 


MOV 


C,A 


D399 CD0CD3 


CALL 


COUT 


D39C El 


POP 


H 


D39D C393D3 


JMP 


MESSAGE 



;GET A CHARACTER OF THE MESSAGE 

yBUMP TEXT POINTER 

yTEST FOR END 

; RETURN IF DONE 

;SAVE POINTER TO TEXT 

? OUTPUT CHARACTER IN C 

r OUTPUT THE CHARACTER 

; RESTORE THE POINTER 

; CONTINUE UNTIL NULL REACHED 



***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 
***************************************************************** 



D3A0 


310001 


D3A3 


CD3AD7 


D3A6 


2136D3 


D3A9 


CD93D3 


D3AC 


AF 


D3AD 


32D7D8 


D3B0 


320400 



CBOOT 



LXI 


SP, TPA 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 


STA 


CPMDRV 


STA 


CDISK 



?SET UP STACK 

7 INITIALIZE THE TERMINAL 

;PREP FOR SENDING SIGNON MESSAGE 

?SEND THE PROMPT 

; SELECT DISK A 



***************************************************************** 
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#005 



*** Cbios For CP/M Ver. 2.2 *** 



* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (30H). * 

* * 

***************************************************************** 



D3B3 


218000 GOCPM LXI 


H,BUFF 


D3B6 


CD8AD4 


CALL 


SETDMA 


D3B9 


3EC3 


MVI 


A, (JMP) 


D3BB 


320000 


STA 


WBOT 


D3BE 


320500 


STA 


ENTRY 


D3C1 


2103D3 


LXI 


H,WBOOTE 


D3C4 


220100 


SHLD 


WBOT+1 


D3C7 


2106C5 


LXI 


H,BDOS+6 


D3CA 


220600 


SHLD 


ENTRY+1 


D3CD 


AF 


XRA 


A 


D3CE 


32DCD8 


STA 


BUFSEC 


D3D1 


32D5D5 


STA 


BUFWRTN 


D3D4 


3A0400 


LDA 


CDISK 


D3D7 


4F 


MOV 


C,A 


D3D8 


11FBD3 


LXI 


D,CMNDBEG 


D3DB 


2108BD 


LXI 


H, CCP+8 


D3DE 


3E01 


MVI 


A,CMNDEND 


D3E0 


3207BD 


STA 


CCP+7 


D3E3 


47 


MOV 


B,A 


D3E4 


CD37D6 


CALL 


MOVLOP 


D3E7 


3AF9D3 


LDA 


CWFLG 


D3EA 


A7 


ANA 


A 


D3EB 


3AFAD3 


LDA 


AUTOFLG 


D3EE 


CAF2D3 


JZ 


CLDBOT 


D3F1 


IF 


RAR 




D3F2 


IF CLDBOT RAR 




D3F3 


DA00BD 


JC 


CCP 


D3F6 


C303BD 


JMP 


CCP+3 


D3F9 


00 CWFLG DB 






;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

r INITIALIZE JUMP TO BDOS 
.•ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 

;A <- 

;DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 

; BEGINNING OF INITIAL COMMAND 
? COMMAND BUFFER 
-CMNDBEG+1 ; LENGTH OF COMMAND 



? ENTER CP/M 

; COLD/WARM BOOT FLAG 



***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* = NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 - GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 
* 

***************************************************************** 



* 
* 

* 
* 
* 



D3FA 01 



AUTOFLG DB 



;AUTO COMMAND FEATURE 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 
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* AUTO FEATURE IS ENABLED. 

* FOR EXAMPLE: 
* 



"MBASIC MYPROG' 




* 
* 
* 

* 
* 
* 
* 

* 
* * 

***************************************************************** 



CMNDBEG DB 
CMNDEND DB 



* 
* 
* 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE 

* "MYPROG" BASIC PROGRAM. 



D3FB 00 



CMNDBEG DB 
CMNDEND DB 



■ i 





; INITIAL COMMAND GOES HERE 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



D3FC 


310001 


WBOOT LXI 


SP, TPA 


D3FF 


3E01 


MVI 


A,l 


D400 


= 


WFLG EQU 


$-1 


D401 


A7 


ANA 


A 


D402 


3E01 


MVI 


A,l 


D404 


3200D4 


STA 


WFLG 


D407 


32F9D3 


STA 


CWFLG 


D40A 


CAB3D3 


JZ 


GOCPM 


D40D 


AF 


XRA 


A 


D40E 


3200D4 


STA 


WFLG 


D411 


4F 


MOV 


C,A 


D412 


CD33D3 


CALL 


DJDRV 


D415 


0E00 


MVI 


C,0 


D417 


CD2DE4 


CALL 


DJDEN 


D41A 


0E00 


MVI 


C,0 


D41C 


CD30E4 


CALL 


DJSIDE 


D41F 


3E0F 


MVI 


A, 15 


D421 


323FD4 


STA 


NEWSEC 


D424 


2100BC 


LXI 


H,CCP-100H 


D427 


225ED4 


SHLD 


NEWDMA 


D42A 


CD3ED4 


CALL 


WARMLOD 


D42D 


0100C2 


LXI 


B,CCP+500H 


D430 


CD12E4 


CALL 


DJDMA 


D433 


0E08 


MVI 


C,8 


D435 


CD0FE4 


CALL 


DJSEC 


D438 


CD72D4 


CALL 


WARMRD 


D43B 


C303C2 


JMP 


CCP+503H 


D43E 


3E0F 


WARMLOD MVI 


A, 15 


D43F 


= 


NEWSEC EQU 


$-1 


D440 


3C 


INR 


A 


D441 


3C 


INR 


A 


D442 


FE1B 


CPI 


27 


D444 


DA56D4 


JC 


NOW RAP 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

; ENDING A WARM BOOT 



;SET COLD/WARM BOOT FLAG 



; SELECT DRIVE A 

; SELECT SINGLE DENSITY 

T SELECT SIDE 

? INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

; UPDATE THE PREVIOUS SECTOR 

;WAS IT THE LAST ? 



CP/M MACRO ASSEM 2.0 



D447 


D609 




SUI 


9 


D449 


FE13 




CPI 


19 


D44B 


C8 




RZ 




D44C 


2A5ED4 




LHLD 


NEWDMA 


D44F 


1180FB 




LXI 


D # -480H 


D452 


19 




DAD 


D 


D453 


225ED4 




SHLD 


NEWDMA 


D456 


323FD4 


NOWRAP 


STA 


. NEWSEC 


D459 


4F 




MOV 


C,A 


D45A 


CD0FE4 




CALL 


DJSEC 


D45D 


2100BC 




LXI 


H,CCP-100H 


D45E 


= 


NEWDMA 


EQU 


$-2 


D460 


110001 




LXI 


D, 100H 


D463 


19 




DAD 


D 


D464 


225ED4 




SHLD 


NEWDMA 


D467 


44 




MOV 


B,H 


D468 


4D 




MOV 


C,L 


D469 


CD12E4 




CALL 


DJDMA 


D46C 


CD72D4 




CALL 


WARMRD 


D46F 


C33ED4 




JMP 


WARMLOD 


D472 


01000A 


WARMRD 


LXI 


B, RETRIES* 


D475 


C5 


WRMREAD 


PUSH 


B 


D476 


CD0CE4 




CALL 


DJTRK 


D479 


CD15E4 




CALL 


DJREAD 


D47C 


CI 




POP 


B 


D47D 


D0 




RNC 




D47E 


05 




DCR 


B 


D47F 


C275D4 




JNZ 


WRMREAD 


D482 


C32AE4 




JMP 


DJERR 



#007 *** Cbios For CP/M Ver. 2.2 *** 

;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
; UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

; CONTINUE IF SUCCESSFUL 

;KEEP TRYING 



**************************************************************** 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

***************************************************************** 



D485 


79 


SETSEC 


MOV 


A,C 


D486 


32D6D8 




STA 


CPMSEC 


D489 


C9 




RET 





;SAVE THE SECTOR NUMBER 
;CP/M SECTOR # 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. 

* 



D48A 


60 


SETDMA 


MOV 


H,B 


D48B 


69 




MOV 


L,C 


D48C 


22B5D5 




SHLD 


CPMDMA 


D48F 


C9 




RET 





?HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 
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: ** Cbios For CP/M Ver. 2.2 *** 



D490 0E00 



* * 

***************************************************************** 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



D492 


79 


SETTRK 


MOV 


A,C 


D493 


32D8D8 




STA 


CPMTRK 


D496 


C9 




RET 





;A <- TRACK # 

;CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 
***************************************************************** 



D497 


03 


SECTRAN I NX 


B 


D498 


D5 


PUSH 


D 


D499 


C5 


PUSH 


B 


D49A 


CD41D5 


CALL 


GETDPB 


D49D 


7E 


MOV 


A,M 


D49E 


B7 


ORA 


A 


D49F 


IF 


RAR 




D4A0 


91 


SUB 


C 


D4A1 


F5 


PUSH 


PSW 


D4A2 


FAAED4 


JM 


SIDETWO 


D4A5 


Fl 


SIDEA POP 


PSW 


D4A6 


CI 


POP 


B 


D4A7 


Dl 


POP 


D 


D4A8 


EB 


SIDEONE XCHG 




D4A9 


09 


DAD 


B 


D4AA 


6E 


MOV 


L,M 


D4AB 


2600 


MVI 


H,0 


D4AD 


C9 


RET 




D4AE 


010F00 


SIDETWO LXI 


B,15 


D4B1 


09 


DAD 


B 


D4B2 


7E 


MOV 


A,M 


D4B3 


E608 


ANI 


8 


D4B5 


CAA5D4 


JZ 


SIDEA 


D4B8 


Fl 


POP 


PSW 


D4B9 


CI 


POP 


B 


D4BA 


2F 


CMA 




D4BB 


3C 


INR 


A 


D4BC 


4F 


MOV 


C,A 


D4BD 


Dl 


POP 


D 


D4BE 


CDA8D4 


CALL 


SIDEONE 


D4C1 


3E80 


MVI 


A,80H 


D4C3 


B5 


ORA 


L 



SAVE TABLE ADDRESS 

SAVE SECTOR # 

GET DPB ADDRESS INTO HL 

GET # OF CP/M SECTORS/TRACK 

CLEAR CARY 

DIVIDE BY TWO 

SAVE ADJUSTED SECTOR 

DISCARD ADJUSTED SECTOR 
RESTORE SECTOR REQUESTED 
RESTOR ADDRESS OF XLT TABLE 
HL <- &( TRANSLATION TABLE) 
BC = OFFSET INTO TABLE 
HL <- PHYSICAL SECTOR 



;OFFSET TO SIDE BIT 

7TEST FOR DOUBLE SIDED 
;MEDIA IS ONLY SINGLE SIDED 
; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



;SIDE TITO BIT 

? AND SECTOR 



CP/M MACRO ASSEM 2.0 #009 

D4C4 6F MOV 

D4C5 C9 RET 



*** Cbios For CP/M Ver. 2.2 *** 
L,A 



* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A * 

* PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE * 

* DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR * 

* DIFFERENT SECTOR SIZES: * 

* 1) 128 BYTES SINGLE DENSITY. * 

* 2) 2 56 BYTES DOUBLE DENSITY. * 

* 3) 512 BYTES DOUBLE DENSITY. * 

* 4) 1024 BYTES DOUBLE DENSITY. * 

* * 

***************************************************************** 



D4C6 


79 SETDRV MOV 


A,C 


D4C7 


32D7D8 


STA 


CPMDRV 


D4CA 


FE04 


CPI 


MAXDISK 


D4CC 


D23DD5 


JNC 


ZRET 


D4CF 


7B 


MOV 


f\ f Hi 


D4D0 


E601 


ANI 


1 


D4D2 


C224D5 


JNZ 


SETDRV1 


D4D5 


3E01 


MVI 


A,l 


D4D7 


32D9D8 


STA 


. TRUESEC 


D4DA 


32D8D8 


STA 


CPMTRK 


D4DD 


CD20D6 


CALL 


FILL 


D4E0 


DA3DD5 


JC 


ZRET 


D4E3 


CD27E4 


CALL 


DJSTAT 


D4E6 


E60C 


ANI 


0CH 


D4E8 


F5 


PUSH 


PSW 


D4E9 


IF 


RAR 




D4EA 


215AD5 


LXI 


H,XLTS 


D4ED 


5F 


MOV 


E,A 


D4EE 


1600 


MVI • 


D,0 


D4F0 


19 


DAD 


D 


D4F1 


E5 


PUSH 


H 


D4F2 


CD41D5 


CALL 


GETDPB 


D4F5 


EB 


XCHG 




D4F6 


Dl 


POP 


D 


D4F7 


0602 


MVI < 


B,2 


D4F9 


CD37D6 


CALL 


MOVLOP 


D4FC 


110800 


LXI 


D,8 


D4FF 


19 


DAD 


D 


D500 


E5 


PUSH 


• H 


D501 


2A07E0 


LHLD 


ORIGIN+7 


D504 


23 


I NX 


H 


D505 


7E 


MOV - 


- A,M 


D506 


EE03 


XRI 


3 


D508 


6F 


MOV 


L , A 


D509 


26E3 


MVI 


H, (ORIGIN+3 


D50B 


7E 


MOV 


A, M 


D50C 


E608 


ANI 


DBLSID 


D50E 


1116D8 


LXI 


D,DPB128S 



;SAVE THE DRIVE # 

; CHECK FOR A VALID DRIVE # 

; ILLEGAL DRIVE # 

;TEST IF DRIVE EVER LOGGED IN BEFORE 

;BIT OF E = -> NEVER SELECTED BEFORE 
; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

;TABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 
; GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

;GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
;BUMP TO LOOK AT ADDRESS OF 
; UART STATUS LOCATION 

; ADJUST FOR PROPER REV DJ 

00H)/100H 

? CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 



CP/M MACRO ASSEM 2.0 



#010 



*** Cbios For CP/M Ver. 2.2 *** 



D511 


C217D5 


JNZ 


SIDEOK 


D514 


1156D8 


LXI 


D,DPB128D 


D517 


EB 


SIDEOK XCHG 




D518 


Dl 


POP 


D 


D519 


Fl 


POP 


PSW 


D51A 


17 


RAL 




D51B 


17 


RAL 




D51C 


4F 


MOV 


C,A 


D51D 


0600 


MVI 


B,0 


D51F 


09 


DAD 


B 


D520 


EB 


XCHG 




D521 


73 


MOV 


M,E 


D522 


23 


I NX 


H 


D523 


72 


MOV 


M,D 


D524 


CD41D5 


SETDRV1 CALL 


GETDPB 


D527 


010F00 


LXI 


B,15 


D52A 


09 


DAD 


B 


D52B 


7E 


MOV 


A f M 


D52C 


E607 


ANI 


7H 


D52E 


326ED5 


ST A 


SECSIZ 


D531 


7E 


MOV 


A,M 


D532 


IF 


RAR 




D533 


IF 


RAR 




D534 


IF 


RAR 




D535 


IF 


RAR 




D536 


E60F 


ANI 


0FH 


D53S 


32A4D5 


STA 


SECPSEC 


D53B 


EB 


XCHG 




D53C 


C9 


RET 




D53D 


210000 


ZRET LXI 


H,0 


D540 


C9 


RET 





;BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 



?GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



;HL <- DPH 



;SELDRV ERROR EXIT 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

♦.SELECTED DRIVE, DE POINTING TO DPH. * 

* * 

***************************************************************** 



D541 


3AD7D8 


D544 


6F 


D545 


2600 


D547 


29 


D548 


29 


D549 


29 


D54A 


29 


D54B 


1196D8 


D54E 


19 


D54F 


E5 


D550 


110A00 


D553 


19 


D554 


7E 


D555 


23 


D556 


66 


D557 


6F 



GETDPB 



LDA 


CPMDRV 


MOV 


L,A 


MVI 


H,0 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


LXI 


D,DPZERO 


DAD 


D 


PUSH 


H 


LXI 


D,10 


DAD 


D 


MOV 


A,M 


I NX 


H 


MOV 


H,M 


MOV 


L,A 



;GET DRIVE # 
;FORM OFFSET 



;BASE OF DPH ' S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

?GET LOW BYTE OF DPB ADDRESS 

,*GET LOW BYTE OF DPB 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 

D 



D558 Dl 
D559 C9 



POP 
RET 



***************************************************************** 

* * 

* XLTS IS A -TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



D55A 48D7 
D55C 63D7 
D55E 98D7 
D560 D5D7 



DW 


XLT128 


DW 


XLT2 56 


DW 


XLT512 


DW 


XLT124 



XLTS DW XLT 128 ;XLT FOR 128 BYTE SECTORS 

?XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
;XLT FOR 1024 BYTE SECTORS 

***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 



D562 


79 


WRITE 


MOV 


A,C 


D563 


32CCD5 




STA 


WRITTYP 


D566 


3E01 




MVI 


A,l 


D568 


06 




DB 


(MVI) OR (B*8) 



rSAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 
THE FOLLOWING "XRA A" TO 
BE SKIPPED OVER. 

***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 
***************************************************************** 



D569 AF 
D56A 32B8D5 



READ XRA A 

STA RDWR 



;SET THE COMMAND TYPE TO READ 
ySAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 



cp/m macro ASSEM 2.0 
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* * 

***************************************************************** 



D56D 


0600 


REDWRT 


MVI 


B , 


D56E 


= 


SECSIZ 


EQU 


$-1 


D56F 


3AD6D8 




LDA 


CPMSEC 


D572 


F5 




PUSH 


PSW 


D573 


E680 




ANI 


80H 


D575 


4F 




MOV 


C # A 


D576 


Fl 




POP 


PSW 


D577 


E67F 




ANI 


7FH 


D579 


3D 




DCR 


A 


D57A 


05 


DIVLOOP 


DCR 


B 


D57B 


CA33D5 




JZ 


DIVDONE 


D57E 


B7 




ORA 


A 


D57F 


IF 




RAR 




D580 


C37AD5 




JMP 


DIVLOOP 


D583 


3C 


DIVDONE 


INR 


A 


D584 


Bl 




ORA 


C 


D535 


32D9D8 




STA 


TRUESEC 


D583 


21D7D8 




LXI 


H,CPMDRV 


D58B 


11DAD8 




LXI 


D,BUFDRV 


D58E 


0604 




MVI 


B,4 


D590 


05 


DTSLOP 


DCR 


B 


D591 


CA9FD5 




JZ 


MOVE 


D594 


1A 




LDAX 


D 


D595 


BE 




CMP 


M 


D596 


23 




I NX 


H 


D597 


13 




I NX 


D 


D598 


CA90D5 




JZ 


DTSLOP 



THE IS MODIFIED TO CONTAIN THE LOG 2 
OF THE PHYSICAL SECTOR SIZE/128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

TEMPORARY SAVE 

SAVE ONLY THE SIDE BIT 

REMEMBER THE SIDE 

GET THE SECTOR BACK 

FORGET THE SIDE BIT 

TEMPORARY ADJUSTMENT 

UPDATE REPEAT COUNT 

CLEAR THE CARY FLAG 

DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUMBER 

POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 

?MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



D59B CD20D6 
D59E D8 



D59F 3AD6D8 
D5A2 3D 
D5A3 E600 
D5A4 = 

D5A5 6F 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

A**************************************************************** 

MOVE 



LDA 

DCR 

ANI 

SECPSEC EQU 

MOV 



CPMSEC 

A 



$-1 

L,A 



;GET THE CP/M SECTOR TO TRANSFER 

y ADJUST TO PROPER SECTOR IN BUFFER 

1 STRIP OFF HIGH ORDERED BITS 

?THE IS MODIFIED TO REPRESENT THE # OF 

; CP/M SECTORS PER PHYSICAL SECTORS 

?PUT INTO HL 



CP/M MACRO ASSEM 2.0 #013 



D5A6 


2600 




MVI 


H,0 


D5A8 


29 




DAD 


H 


D5A9 


29 




DAD 


H 


D5AA 


29 




DAD 


H 


D5AB 


29 




DAD 


H 


D5AC 


29 




DAD 


H 


D5AD 


29 




DAD 


H- 


D5AE 


29 




DAD 


H 


D5AF 


11DDD8 




LXI 


D, BUFFER 


D5B2 


19 




DAD 


D 


D5B3 


EB 




XCHG 




D5B4 


210000 




LXI 


H,0 


D5B5 


= 


CPMDMA 


EQU 


$-2 


D5B7 


3E00 




MVI 


A,0 


D5B8 


= 


RDWR 


EQU 


$-1 


D5B9 


A7 




ANA 


A 


D5BA 


C2C2D5 




JNZ 


INTO 


D5BD 


CD35D6 


OUTOF 


CALL 


MOVER 


D5C0 


AF 




XRA 


A 


D5C1 


C9 




RET 




D5C2 


EB 


INTO 


XCHG 




D5C3 


CD35D6 




CALL 


MOVER 


D5C6 


3E01 




MVI 


A,l 


D5C8 


32D5D5 




STA 


BUFWRTN 


D5CB 


3E00 




MVI 


A,0 


D5CC 


= 


WRITTYP 


EQU 


$-1 


D5CD 


3D 




DCR 


A 


D5CE 


3E00 




MVI 


A,0 


D5D0 


32CCD5 




STA 


WRITTYP 


D5D3 


C0 




RNZ 





*** Cbios For CP/M Ver. 2.2 *** 

;FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 

;FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 

;DE = ADDRESS IN BUFFER 

;GET DMA ADDRESS, THE IS MODIFIED TO 

? CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
i TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

?SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 

***************************************************************** 



D5D4 


3E00 


FLUSH MVI 


A,0 


D5D5 


5— 


BUFWRTN EQU 


$-1 


D5D6 


A7 


ANA 


A 


D5D7 


C8 


RZ 




D5D8 


2118E4 


LXI 


H,DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
?NOT WRITTEN, ALL DONE 
; WRITE OPERATION 

***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 

***************************************************************** 



CP/M MACRO ASSEM 2.0 



#014 



*** Cbios For CP/M Ver. 2.2 *** 



D5DB 


AF 


PREP XRA 


A 


D5DC 


32D5D5 


STA 


BUFWRTN 


D5DF 


2212D6 


SHLD 


RETRYOP 


D5E2 


060A 


MVI 


B, RETRIES 


D5E4 


C5 


RETRYLP PUSH 


B 


D5E5 


3ADAD8 


LDA 


BUFDRV 


D5E8 


4F 


MOV 


C,A 


D5E9 


CD33D3 


CALL 


DJDRV 


D5EC 


3ADBD8 


LDA 


BUFTRK 


D5EF 


A7 


ANA 


A 


D5F0 


4F 


MOV 


C,A 


D5F1 


C5 


PUSH 


B 


D5F2 


CC09E4 


cz 


DJHOME 


D5F5 


CI 


POP 


B 


D5F6 


CD0CE4 


CALL 


DJTRK 


D5F9 


3ADCD8 


LDA 


BUFSEC 


D5FC 


F5 


PUSH 


PSW 


D5FD 


07 


RLC 




D5FE 


E601 


AMI 


1 


D600 


4F 


MOV 


C,A 


D601 


CD30E4 


CALL 


DJSIDE 


D604 


Fl 


POP 


PSW 


D605 


E67F 


ANI 


7FH 


D607 


4F 


MOV 


C,A 


D608 


CD0FE4 


CALL 


DJSEC 


D60B 


01DDD8 


LXI 


B , BUFFER 


D60E 


CD12E4 


CALL 


DJDMA 


D611 


CD15E4 


CALL 


DJREAD 


D612 


as 


RETRYOP EQU 


$-2 


D614 


CI 


POP 


B 


D615 


3E00 


MVI 


A,0 


D617 


D0 


RNC 




D618 


05 


DCR 


B 


D619 


37 


STC 




D61A 


3EFF 


MVI 


A,0FFH 


D61C 


C8 


RZ 




D61D 


C3E4D5 


JMP 


RETRYLP 



; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ /WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 

; SELECT THE DRIVE 
?TEST FOR TRACK ZERO 



HOME THE DRIVE IF TRACK 

RESTORE TRACK # 

SEEK TO PROPER TRACK 

GET SECTOR INVOLVED IN OPERATION 

SAVE THE SECTOR # 

BIT OF A EQUALS SIDE # 

STRIP OFF UNNECESSARY BITS 

C <- SIDE # 

SELECT THE SIDE 

A <- SECTOR # 

STRIP OFF SIDE BIT 

C <- SECTOR # 

SET THE SECTOR TO TRANSFER 

SET THE DMA ADDRESS 

THE READ OPERATION IS MODIFIED TO WRITE 

RESTORE THE RETRY COUNTER 
NO ERROR EXIT STATUS 
RETURN NO ERROR 
UPDATE THE RETRY COUNTER 
ASSUME RETRY COUNT EXPIRED 
ERROR RETURN 

TRY AGAIN 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



D620 


CDD4D5 


D623 


D8 


D624 


11D7D8 


D627 


21 DADS 


D62A 


0603 


D62C 


CD37D6 


D62F 


2115E4 


D632 


C3DBD5 



FILL 



CALL 


FLUSH 


RC 




LXI 


D,CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,3 


CALL 


MOVLOP 


LXI 


H, DJREAD 


JMP 


PREP 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

?UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 

; SELECT DRIVE, TRACK, AND SECTOR. 
THEN READ THE BUFFER 



***************************************************************** 
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* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 
*■■■... * 
***************************************************************** 



D635 


0680 


MOVER 


MVI 


B,128 


D637 


1A 


MOVLOP 


LDAX 


D 


D638 


77 




MOV 


M,A 


D639 


13 




I NX 


D 


D63A 


23 




I NX 


H 


D63B 


05 




DCR • 


B 


D63C 


C237D6 




JNZ 


MOVLOP 


D63F 


C9 




RET 





; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

.•UPDATE COUNTER 

? CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 

***************************************************************** 



E403 = 
E406 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



? INPUT FROM THE DISK JOCKEY 2D 
? OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 

***************************************************************** 



D640 21BAD6 
D643 C352D6 



CONST LXI 

JMP 



H,CSTBLE 
CONIN1 



t BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 

***************************************************************** 



D646 21C2D6 

D649 C36FD6 



CSREADR LXI 

JMP 



H, CSRTBLE 
READERA 



.•BEGINNING OF READER STATUS TABLE 



***************************************************************** 
* * 
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* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE. * 

* * 

***************************************************************** 



D64C CDD4D5 
D64F 2192D6 



CONIN CALL 
LXI 



FLUSH 

H,CITBLE 



7 FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 
* 



D652 3A0300 
D655 17 



CONIN1 



LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 



D656 E606 SELDEV ANI 


6H 


D658 1600 


MVI 


D,0 


D65A 5F 


MOV 


E,A 


D65B 19 


DAD 


D 


D65C 7E 


MOV 


A,M 


D65D 23 


I NX 


H 


D65E 66 


MOV 


H,M 


D65F 6F 


MOV 


L,A 


D660 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

j ADD OFFSET 

;PICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE I 







* 
* 


SIGNIFICANT BI 






************************ 


D661 


C5 


CONOUT 


PUSH 


B 


D662 


CDD4D5 




CALL 


FLUSH 


D665 


CI 




POP 


B 


D666 


219AD6 




LXI 


H,COTBLE 


D669 


C352D6 




JMP 


CONIN1 




***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* 
* 

******* 

;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

; BEGINNING OF THE CHARACTER OUT TABLE 

?DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVJJIE-jeer^NPUT . THE * 

* READER IS SELECTED FROM BITZ^2AND 3 (W IOBYTE. * 

************************************** **T*TT* ******************** * 



D66C 21B2D6 



READER LXI 



H, RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 



CP/M MACRO ASSEM 2.0 #017 *** Cbios For CP/M Ver. 2.2 *** 



* BY CSREADER. 
* 



D66F 3A0300 



READERS LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 



D672 IF 
D673 C356D6 



READR1 RAR 
JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE^5@£SfeCT PUNCH DEVICE. THE SELECTION COMES * 
FROM &IT9^4&5 W IOBYTE. * 



D676 21AAD6 
D679 3A0300 



PUNCH 



LXI 

LDA 



H,PTBLE 
IOBYTE 



.•BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 
* 



D67C IF 
D67D IF 
D67E C372D6 



PNCH1 RAR 
RAR 

JMP 



READR1 



***************************************************************** 

* ^— * 

* LIST: SELECT A LIST DEVICE BASED ON BITS*"'**"? *"»*■ Tnnwp * 



**************************************** 




OF IOBYTE 



******************** 



D6S1 21A2D6 
D684 3A0300 
D687 IF 
D689 IF 
D689 C37CD6 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



D68C 21CAD6 
D68F C384D6 



LISTST LXI 
JMP 



H,LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 



CP/M MACRO ASSEM 2.0 #018 *** Cbios For CP/M Ver. 2.2 *** 



* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 
***************************************************************** 







* 
* 


CONSOLE INPUT 


TABLE 


D692 


00D7 


CITBLE 


DW 


CIUC1 


D694 


15D7 






DW 


CICRT 


D696 


6CD6 






DW 


READER 


D698 


03E4 






DW 


CITTY 



INPUT FROM -USER CONSOLE 1 (CURRENTLY 

SWBD PARALLEL PORT 4} 
INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 



* CONSOLE OUTPUT TABLE 



D69A D2D6 
D69C D2D6 
D69E 81D6 
D6A0 06E4 



D6A2 06E4 
D6A4 D2D6 
D6A6 D6D6 
D6A8 E1D6 



COTBLE 


DW 


COCRT 




DW 


COCRT 




DW 


LIST 




DW 


COTTY 


* 

* LIST 
* 


DEVICE 


TABLE 


LTBLE 


DW 


COTTY 




DW 


SSiSKT- doPTlZ. 




DW 


COLPT 




DW 


COUL1 







* 
* 


PUNCH 


DEVICE 


TABLE 


D6AA 


06E4 


PTBLE 


DW 


COTTY 


D6AC 


D6D6 






DW 


iwrr" tofm. 


D6AE 


D6D6 






DW 


COUP1 


D6B0 


D6D6 






DW 


COUP 2 



OUTPUT TO CRT (MSDV) 
OUTPUT TO CRT (MSDV) 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6£c7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY I NT I OB Y, OUTPUT TO 2D) 
OUTPUT TO CRT (MSPUj m f*#**&$VL 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PAPEn TAPE PUNCH -(rUffffFNTIY 0/l(*?fr^ 

- — swTTrHRnnp . p pbiiimj port D 

OUTPUT TO USER PUNCH 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
OUTPUT TO USER PUNCH 2 (CURRNTLLY 

SWITCHBOARD SERIAL PORT 1) 



tOVfh 



II O oo oo 



// 7 our 




/it £>C7£> $«%&, 



CP/M MACRO ASSEM 2.0 



#019 



*** Cbios For CP/M Ver. 2.2 *** 



* READER DEVICE INPUT TABLE 
* 



D6B2 03E4 
D6B4 15D7 
D6B6 15D7 
D6B8 15D7 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIUR1 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



C op 



- 




* 
* 


CONSOLE STATUS TABLE 


D6BA 


0CD7 


CSTBLE 


DW 


CSUC1 v 


D6BC 


29D7 






DW 


CSCRT 


D6BE 


46D6 






DW 


CSREADR 


D6C0 


21D7 






DW 


CSTTY 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



* STATUS FROM READER DEVICE 
* 



D6C2 


21D7 


CSRTBLE 


DW 


CSTTY 


D6C4 


29D7 




DW 


CSPTR 


D6C6 


29D7 




DW 


CSUR1 


D6C8 


29D7 




DW 


CSUR2 



* STATUS FROM LIST DEVICE 
* 



D6CA 


37D7 


LSTBLE 


DW 


READY 


D6CC 


37D7 1 




DW 


READY 


D6CE 


32D7 




DW 


LSLPT 


D6D0 


3 2D 7 




DW 


LSLPT 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



t CONSOLE ALWAYS READY 
yGET LIST STATUS 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 
***************************************************************** 



CO@T$~ 



Am / 



OoTT O 




* MSDV VIDEO DRIVER 



CP/M MACRO ASSEM 2.0 #020 



'** Cbios For CP/M Ver. 2.2 *** 



D6D2 79 
D6D3 C300E8 



COCRT 



MOV 
JMP 



A, C 
MSDV 



;MSDV WANTS DATA IN A 
;GO THERE 



***************************************************************** 
* 



* 
* 

* 

* * 

************************** *************************************** 



* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE 

* SWITCHBOARD SERIAL PORT 1. 



D6D6 


= 


COPTP 


EQU 


$ 


D6D6 


= 


COUP1 


EQU 


$ 


D6D6 


= 


COUP 2 


EQU 


$ 


D6D6 


DB02 


COLPT 


IN 


2 


D6D8 


E680 




ANI 


80H 


D6DA 


CAD6D6 




JZ 


COLPT 


D6DD 


79 




MOV 


A,C 


D6DE 


D301 




OUT 


1 


D6E0 


C9 




RET 





; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

j OUTPUT FROM USER PUNCH 2 

?OUTPUT FROM LINE PRINTER, GET STATUS 

yWAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 

; OUTPUT THE CHARACTER 



D6E1 


CDD6D6 


COUL1 


CALL 


COLPT 


D6E4 


3AFFD6 




LDA 


COUNT 


D6E7 


3D 




DCR 


A 


D6E8 


32FFD6 




STA 


COUNT 


D6EB 


C0 




RNZ 




D6EC 


3E4E 




MVI 


A, 78 


D6EE 


32FFD6 




STA 


COUNT 


D6F1 


0E03 




MVI 


C.AETX 


D6F3 


CDD6D6 




CALL 


COLPT 


D6F6 


CD15D7 


PWAIT 


CALL 


CIPTR 


D6F9 


FE06 




CPI 


AACK 


D6FB 


C2F6D6 




JNZ 


PWAIT 


D6FE 


C9 




RET 




D6FF 


32 


COUNT 


DB 


50 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 



********************************************* 



******************* 



D700 


DB03 


CIUC1 


IN 


3 


D702 


E601 




ANI 


1 


D704 


CA00D7 




JZ 


CIUC1 



;GET ATTENTION BYTE 
;GET BIT ONLY 
;WAIT FOR CHARACTER 
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D707 DB04 
D709 E67F 
D70B C9 



IN 
ANI 

RET 



4 
7FH 



;GET CHARACTER 

? STRIP OFF THE PARITY 



D70C DB03 
D70E E601 
D710 EE01 
D712 C324D7 



CSUC1 



IN 
ANI 
XRI 
JMP 



3 
1 
1 

STAT 



;GET ATTENTION BYTE 

;GET BIT ONLY 

; CHANGE POLARITY 

; RETURN PROPER INDICATION 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



D715 


= 


CICRT 


EQU 


$ 


D715 


= 


CIUR1 


EQU 


$ 


D715 


— 


CIUR2 


EQU 


$ 


D715 


DB02 


CIPTR 


IN 


2 


D717 


E640 




ANI 


40H 


D719 


CA15D7 




JZ 


CIPTR 


D71C 


DB01 




IN 


1 


D71E 


E67F 




ANI 


7FH 


D720 


C9 




RET 





; INPUT FROM CRT 

; INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

7 INPUT FROM PAPER TAPE READER, GET STATUS 

;WAIT FOR CHARACTER 



; STRIP OFF THE PARITY 



\. 



//y/F, 



1 ff.o 
1)\ P*t> 



lO 



***************************************************************** 
* * 



* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. 
* 

***************************************************************** 



* 
* 



D721 CD21E4 
D724 3E00 
D726 C0 
D727 3D 
D728 C9 



CSTTY CALL DJTSTAT 
STAT MVI A,0 

RNZ 

DCR A 

RET 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

; STATUS FROM CRT, GET STATUS 

; STRIP OF DATA READY BIT 

?MAKE CORRECT POLARITY 

7 RETURN PROPER INDICATION 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 



D729 


= 


CSUR1 


EQU 


• $ 


D729 


= 


CSUR2 


EQU- 


$ 


D729 


= 


CSPTR 


EQU 


$ 


D729 


DB02 


CSCRT 


IN 


2 


D72B 


E640 




ANI 


40H 


D72D 


EE40 




XRI 


40H 


D72F 


C324D7 




JMP 


STAT 



y % 



CP/M MACRO ASSEM 2.0 #022 



** Cbios For CP/M Ver. 2.2 *** 



* * 

***************************************************************** 



D732 


DB02 


LSLPT 


IN 


2 


D734 


E6S0 




ANI 


80H 


D736 


C8 




RZ 




D737 


3EFP 


READY 


MVI 


A,0 


D739 


C9 




RET 





;ALL OTHER DEVICES WAIT 



***************************************************************** 

* * 

* THIS INITIALIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS IIS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 

***************************************************************** 



D73A 0E19 
D73C DB07 
D73E E601 
D740 C6C0 
D742 320300 
D745 C30CD3 



TINIT 



MVI 


C , CLEAR 


IN 


7 


ANI 


1 


ADI 


I NT I OB Y 


STA 


IOBYTE 


JMP 


COUT 



7 INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
7 INITIALIZE IOBYTE 



* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. 
* 



***************************************************************** 



D748 


00 XLT128 


DB 


D749 


01070D1319 


DB 


D74E 


050B1117 


DB 


D752 


03090F15 


DB 


D756 


02080E141A 


DB 


D75B 


060C1218 


DB 


D75F 


040A1016 


DB 


D763 


00 XLT256 


DB 


D764 


0102131425 


DB 


D76A 


0304151627 


DB 


D770 


0506171829 


DB 


D776 


0708191A2B 


DB 


D77C 


090A1B1C2D 


DB 


D782 


0B0C1D1E2F 


DB 


D788 


0D0E1F2031 


DB 


D78E 


0F10212233 


DB 


D794 


11122324 


DB 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



1,2,19,20,37,38 

3,4,21,22, 39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,13,35,36 



cp/m macro assem 2.0 



#023 



*** Cbios For CP/M Ver. 2.2 *** 



D798 00 XLT512 DB 

D799 0102030411 DB 

D7A1 2122232431 DB 

D7A9 0506070815 DB 

D7B1 2526272835 DB 

D7B9 090A0B0C19 DB 

D7C1 292A2B2C39 DB 

D7C9 0D0E0F101D DB 

D7D1 2D2E2F30 DB 

D7D5 00 XLT124 DB 

D7D6 0102030405 DB 

D7DE 191A1B1C1D DB 

D7E6 3132333435 DB 

D7EE 090A0B0C0D DB 

D7F6 2122232425 DB 

D7FE 393A3B3C3D DB 

D806 1112131415 DB 

D80E 292A2B2C2D DB 





1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10, 11,12,25,26,27, 28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



1, 2, 3,4, 5,6, 7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10, 11,12,13,14,15, 16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. THE TABLES ARE CURRENTLY STORED * 

* ON TRACK SECTOR 13. THEY ARE READ INTO MEMORY BY THE GOCPM * 

* ROUTINE IN THE CBIOS FOR CP/M VER 2.0. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D816 


1A00 


DPB128S DW 


26 


D818 


03 


DB 


3 


D819 


07 


DB 


7 


D31A 


00 


DB 





D81B 


F200 


DW 


242 


D31D 


3F00 


DW 


63 


D81F 


C0 


DB 


0C0H 


DS20 


00 


DB 





D321 


1000 


DW 


16 


DS23 


0200 


DW 


2 


D825 


01 


DB 


1H 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



■1) + 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 



CP/M MACRO ASSEM 2.0 #024 



*** Cbios For CP/M Ver. 2.2 *** 



* * 

***************************************************************** 



D826 


3400 


DPB256S DW 


52 


D828 


04 


DB 


4 


D829 


0F 


DB 


15 


D82A 


00 


DB 





DS2B 


F200 


DW 


242 


D82D 


7F00 


DW 


127 


D32F 


C0 


DB 


0C0H 


D830 


00 


DB 





D831 


2000 


DW 


32 


D833 


0200 


DW 


2 


DS35 


12 


DB 


12H 



cp/m sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS /PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D836 


3C00 


DPB512S DW 


60 


D833 


04 


DB 


4 


D839 


0F 


DB 


15 


D83A 


00 


DB 





D83B 


1801 


DW 


280 


D83D 


7F00 


DW 


127 


D83F 


C0 


DB 


0C0H 


D840 


00 


DB 





D841 


2000 


DW 


32 


D843 


0200 


DW 


2 


D845 


33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D846 


4000 


DP1024S DW 


64 


D843 


04 


DB 


4 


D849 


0F 


DB 


15 


D84A 


00 


DB 





D84B 


2B01 


DW 


299 


D84D 


7F00 


DW 


127 


D84F 


C0 


DB 


0C0H 


D850 


00 


DB 





D851 


2000 


DW 


32 


D853 


0200 


DW 


2 


D855 


74 


DB 


74H 



cp/m sectors/track 

BSH 
BLM 
EXM 
DSM 
DRM 
AL0 
AL1 
CKS 
OFF 
16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 



CP/M MACRO ASSEM 2.0 #025 *** Cbios For CP/M Ver. 2.2 *** 



;L0G2(#BYTES PER SECTOR/128) + 1 + 
;8 IF DOUBLE SIDED. 



*************************** ************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D856 


3400 


DPB128D DW 


52 


D858 


04 


DB 


4 


D859 


0F 


DB 


15 


D85A 


01 


DB 


1 


D85B 


F200 


DW 


242 


DS5D 


7F00 


DW 


127 


D85F 


C0 


DB 


0C0H 


D860 


00 


DB 





D861 


2000 


DW 


32 


D863 


0200 


DW 


2 


D865 


09 


DB 


9H 



CP/M sectors/track 

BSH 

BLM 
EXM 
DSM 
DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D866 


6800 


DPB256D DW 


104 


D868 


04 


DB 


4 


D369 


0F 


DB 


15 


D86A 


00 


DB 





D86B 


E601 


DW 


486 


D86D 


FF00 


DW 


255 


D86F 


F0 


DB 


0F0H 


D870 


00 


DB 





D871 


4000 


DW 


64 


D873 


0200 


DW 


2 


D875 


1A 


DB 


1AH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D876 7800 


DPB512D DW 


120 


D878 04 


DB 


4 


D879 0F 


DB 


15 


D87A 00 


DB 





D87B 3102 


DW 


561 


D87D FF00 


DW 


255 


D87F F0 


DB 


0F0H 


D880 00 


DB 






?CP/M SECTORS /TRACK 

;BSH 

;BLM 

?EXM 

;DSM 

;DRM 

;AL0 

;AL1 



CP/M MACRO ASSEM 2.0 #026 



r ** Cbios For CP/M Ver. 2.2 *** 



DS81 4000 
DB83 0200 
DSS5 3B 



DW 


64 


DW 


2 


DB 


3BH 



;CKS 
;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D886 


8000 


DP1024D DW 


128 


D838 


04 


DB 


4 


D839 


0F 


DB 


15 


D88A 


00 


DB 





D88B 


5702 


DW 


599 


D83D 


FF00 


DW 


255 


D88F 


F0 


DB 


0F0H 


D890 


00 


DB 





D891 


4000 


DW 


64 


D893 


0200 


DW 


2 


D895 


7C 


DB 


7CH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 
***************************************************************** 



D396 


0000 DPZERO 


DW 





D898 


0000000000 


DW 


0,0,0 


D89E 


09DF 


DW 


DIRBUF 


D8A0 


0000 


DW 





D8A2 


09DE 


DW 


CSV0 


D8A4 


DDDC 


DW 


ALV0 


D8A6 


0000 DPONE 


DW 





D3A8 


0000000000 


DW 


0,0,0 


D3AE 


09DF 


DW 


DIRBUF 


D8B0 


0000 


DW 





D8B2 


49DE 


DW 


CSV! 


D8B4 


28DD 


DW 


ALV1 


D8B6 


0000 DPTWO 


DW 





D8B8 


0000000000 


DW 


0,0,0 


D8BE 


09DF 


DW 


DIRBUF 


D8C0 


0000 


DW 





D8C2 


89DE 


DW 


CSV2 


D8C4 


73DD 


DW 


ALV2 


D8C6 


0000 DPTHRE 


DW 





D8C8 


0000000000 


DW 


0,0,0 


D8CE 


09DF 


DW 


DIRBUF 


D3D0 


0000 


DW 





D8D2 


C9DE 


DW 


CSV3 



; ADDRESS OF TRANSLATION TABLE (FILLED 

r IN BY SETDRV) 

rUSED BY BDOS 

r ADDRESS OF DIRECTORY BUFFER 

; ADDRESS OF DPB (FILLED IN BY SETDRV) 

.•DIRECTORY CHECK VECTOR 

7 ALLOCATION VECTOR 



cp/m macro 

DSD4 BEDD 



ASSEM 2.0 #027 *** Cbios For CP/M Ver. 2.2 *** 

DW ALV3 

***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 
***************************************************************** 

?CP/M SECTOR # 

;CP/M DRIVE # 

;CP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

; DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

; SECTOR THAT BUFFER BELONGS TO 

,-MAXIMUM SIZE BUFFER FOR IK SECTORS 

; ALLOCATION VECTOR FOR DRIVE A 

7 ALLOCATION VECTOR FOR DRIVE B 

; ALLOCATION VECTOR FOR DRIVE C 

; ALLOCATION VECTOR FOR DRIVE D 

; DIRECTORY CHECK VECTOR FOR DRIVE A 

; DIRECTORY CHECK VECTOR FOR DRIVE B 

; DIRECTORY CHECK VECTOR FOR DRIVE C 

; DIRECTORY CHECK VECTOR FOR DRIVE D 

; DIRECTORY BUFFER 



D8D6 


00 


CPMSEC 


DB 





D8D7 


00 


CPMDRV 


DB 





D8D8 


00 


CPMTRK 


DB 





D8D9 


00 


TRUE SEC 


DB 


g 


D8DA 


00 


BUFDRV 


DB 





D8DB 


00 


BUFTRK 


DB 





D8DC 


00 


BUFSEC 


DB 





D8DD 




BUFFER 


DS 


1024 


DCDD 




ALV0 


DS 


75 


DD28 




ALV1 


DS 


75 


DD73 




ALV2 


DS 


75 


DDBE 




ALV3 


DS 


75 


DE09 




CSV0 


DS 


64 


DE49 




CSV1 


DS 


64 


DE89 




CSV2 


DS 


64 


DEC9 




CSV3 


DS 


64 


DF09 




DIRBUF 


DS 


128 


DF89 






END 





CP/M macro ASSEM 2.0 



#028 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AACK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


DCDD 


ALV0 


DD28 


ALV1 


DD73 


ALV2 


DDBE 


ALV3 


D3FA 


AUTOFLG 


C500 


BDOS 


9000 


BIAS 


D300 


BIOS 


D3DA 


BUFDRV 


0080 


BUFF 


D8DD 


BUFFER 


D8DC 


BUFSEC 


D8DB 


BUFTRK 


D5D5 


BUFWRTN 


D3A0 


CBOOT 


BD00 


CCP 


0004 


CDISK 


D715 


CICRT 


D715 


CIPTR 


D692 


CITBLE 


E403 


CITTY 


D700 


CIUC1 


D715 


CIUR1 


D715 


CIUR2 


D3F2 


CLDBOT 


0019 


CLEAR 


D3FB 


CMNDBEG 


D3FB 


CMNDEND 


D6D2 


COCRT 


D6D6 


COLPT 


D64C 


CON IN 


D652 


C0NIN1 


D661 


CONOUT 


D640 


CONST 


D6D6 


COPTP 


D69A 


COTBLE 


E406 


COTTY 


D6E1 


COUL1 


D6FF 


COUNT 


D6D6 


COUP1 


D6D6 


COUP 2 


D30C 


COUT 


D5B5 


CPMDMA 


D8D7 


CPMDRV 


0016 


CPMREV 


D3D6 


CPMSEC 


D8D8 


CPMTRK 


D729 


CSCRT 


D729 


CSPTR 


D646 


CSREADR 


D6C2 


CS RTBLE 


D6BA 


CSTBLE 


D721 


CSTTY 


D70C 


CSUC1 


D729 


CSUR1 


D729 


CSUR2 


DE09 


CSV0 


DE49 


CSV1 


DE89 


CSV2 


DEC9 


CSV3 


D3F9 


CWPLG 


0008 


DBLSID 


DF09 


DIRBUF 


D583 


DIVDONE 


D57A 


DIVLOOP 


E403 


DJCIN 


E406 


DJCOUT 


E42D 


DJDEN 


E412 


DJDMA 


D333 


DJDRV 


E42A 


DJERR 


E409 


DJHOME 


E400 


DJRAM 


E415 


DJREAD 


E40F 


DJSEC 


E41B 


DJSEL 


E430 


DJSIDE 


E427 


DJSTAT 


E40C 


DJTRK 


E421 


DJTSTAT 


E418 


DJWRITE 


D886 


DP1024D 


D846 


DP1024S 


D856 


DPB128D 


D816 


DPB123S 


D866 


DPB256D 


D826 


DPB256S 


D876 


DPB512D 


D336 


DPB512S 


D8A6 


DPONE 


D8C6 


DPTHRE 


D3B6 


DPTWO 


D896 


DPZERO 


D590 


DTSLOP 


0005 


ENTRY 


D620 


FILL 


D5D4 


FLUSH 


D541 


GETDPB 


D3B3 


GOCPM 


D490 


HOME 


00C0 


I NT I OB Y 


D5C2 


INTO 


0003 


IOBYTE 


D681 


LIST 


D634 


LIST1 


D68C 


LISTST 


D732 


LSLPT 


D6CA 


LSTBLE 


D6A2 


LTBLE 


0004 


MAXDISK 


D393 


MESSAGE 


D59F 


MOVE 


D635 


MOVER 


D637 


MOVLOP 


E800 


MSDV 


0038 


MSIZE 


D45E 


NEWDMA 


D43F 


NEWSEC 


D456 


NOWRAP 


E000 


ORIGIN 


D5BD 


OUTOF 


D67C 


PNCH1 


D5DB 


>PREP 


D336 


PROMPT 


D6AA 


PTBLE 


D676 


PUNCH 


D6F6 


PWAIT 


D5B8 


RDWR 


D66C 


READER 


D569 


READ 


D66F 


READERA 


D672 


READR1 


D737 


READY 


D56D 


REDWRT 


000A 


RETRIES 


D5E4 


RETRYLP 


D612 


RETRYOP 


001E 


REVNUM 


D6B2 


RTBLE 


D5A4 


SECPSEC 


D56E 


SECSIZ 


D497 


SECTRAN 


D656 


SELDEV 


D48A 


SETDMA 


D4C6 


SETDRV 


D524 


SETDRV1 


D485 


SETSEC 


D492 


SETTRK 


D4A5 


SIDEA 


D517 


SIDEOK 


D4A8 


SIDEONE 


D4AE 


SIDETWO 


D724 


STAT 


D73A 


TINIT 


0100 


TPA 


D8D9 


TRUE SEC 


D43E 


WARMLOD 


D472 


WARMRD 


D303 


WBOOTE 


D3FC 


WBOOT 


0000 


WBOT 


D400 


WFLG 


D562 


WRITE 


D5CC 


WRITTYP 


D475 


WRMREAD 


D7D5 


XLT124 


D743 


XLT128 


D763 


XLT256 


D798 


XLT512 


D55A 


XLTS 


D53D 


ZIvEIT 



/ 



